  {mfdtitle.i "b+ "}

   /* SELECT PRINTER */
  {mfselprt.i "terminal" 132}

  {mfguichk.i }

  FOR EACH qaddb.prh_hist WHERE prh_rcp_date >= DATE("03/11/26") AND prh_rcp_date <= DATE("03/11/26") NO-LOCK:
      setFrameLabels(frame a:handle).
      DISPLAY 
        prh_part
        prh_rcp_date 
        prh_nbr 
        prh_line
        prh_receiver 
        prh_vend 
        prh_shipto 
        prh_site 
        prh_qty_ord 
        prh_rcp_type 
        prh_rcvd
        prh_cum_rcvd
        prh_cum_req
        prh_um
        prh_um_conv 
        prh_reason 
        prh_type 
        prh_buyer
        prh_vend_lot 
        prh_lot 
        prh_approve 
      WITH STREAM-IO WIDTH 120. /*STREAM-IO /*GUI*/ .*/
  END.
   
  {mfreset.i}
  {mfgrptrm.i} /*Report-to-Window*/
